home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed9.d64 / equation x-y (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  7KB  |  240 lines
  1. 1 GOTO910
  2. 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
  3. 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
  4. 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
  5. 5 [153]"hhhhhhh`  
  6. 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
  7. 7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
  8. 35 IFUW=0THENSYSUU,15
  9. 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
  10. 45 GETUI$:IFUI$=""THEN45
  11. 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75
  12. 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
  13. 60 IFUR=ULTHEN45
  14. 65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
  15. 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
  16. 80 UR$=LEFT$(UR$,UI):PRINT:RETURN
  17. 95 IFLEN(US$)=0THEN110
  18. 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
  19. 105 RETURN
  20. 110 IFUA=46THENRETURN
  21. 115 IFUA=32ANDUR<>0THENRETURN
  22. 120 IFUA>47ANDUA<58THENRETURN
  23. 125 IFUA>64ANDUA<91THENRETURN
  24. 130 IFUA<193ORUA>218THENUI$="":RETURN
  25. 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
  26. 140 RETURN
  27. 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,0:POKEUX,0
  28. 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
  29. 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
  30. 300 REM DERIVED FROM COMMODORE ONTARIO EDUCATIONAL SOFTWARE PROJECT 1983
  31. 305 REM PROJECT DIRECTOR: FRANK WINTER
  32. 310 REM PROJECT DIRECTOR: FRANK WINTER
  33. 320 REM PROGRAM NAME: EQUATION X-Y
  34. 330 REM WRITTEN BY: G. D. MAHAFFY
  35. 340 REM REVISED BY: DAVE MC CLURKIN
  36. 350 REM UPDATED BY: BILL CUMBERLAND
  37. 360 REM STUDENTS EXPERIMENT WITH                GRAPHING LINES.
  38. 365 REM THEY WILL BE ABLE TO INPUT THEIR
  39. 370 REM OWN EQUATIONS WHICH THE COMPUTER        WILL PLOT FOR THEM.
  40. 375 REM THE LIMITS OF THE GRAPH ARE AS          FOLLOWS:
  41. 380 REM -18 <= (null) <= 20
  42. 385 REM -10 <= (null) <= 10
  43. 386 REM DUE TO THESE LIMITS, THE EQUATION"
  44. 387 [143] EQUATIONS THAT IS ENTERED, MUST
  45. 388 [143] NOT HAVE LARGER INTERCEPTS."
  46. 400 PRINT"[147]":POKEUT,UL%:POKEUY,0:POKEUX,0:POKE646,13
  47. 405 PRINT"              [201]NSTRUCTIONS [146]
  48. 412 [153]" (null)HIS IS A PROGRAM ON GRAPHING           LINES.
  49. 414 PRINT" [212]HE GENERAL EQUATION USED IS:                        [193][216] + [194][217] = [195]
  50. 416 [153]" (null)OU WILL BE ABLE TO CHOOSE VALUES       FOR ATN, PEEK, AND LEN.
  51. 420 PRINT" [207]NCE THE EQUATION IS SET, THE           COMPUTER WILL PLOT THE GRAPH.
  52. 422 [153]" (null)OU ARE ENCOURAGED TO EXPERIMENT WITH
  53. 424 PRINT" THE DIFFERENT VALUES FOR [193], [194], AND [195],
  54. 426 [153]" AND ALSO TO NOTICE THE CHANGES THAT
  55. 428 PRINT" THEY BRING ABOUT."
  56. 429 GOSUB820
  57. 430 PRINT"[147] [211]INCE THIS COMPUTER CANNOT HANDLE"
  58. 432 PRINT" VERY LARGE OR VERY SMALL NUMBERS, YOU"
  59. 434 PRINT" SHOULD INPUT NUMBERS THAT ARE BETWEEN   -99 AND -999.
  60. 436 [153]" (null)HAT'S THE LIMIT, BUT NOT ALL OF THEM
  61. 438 PRINT" WILL BE PLOTTED ON THE GRAPH ON THE     SCREEN.
  62. 440 [141]820
  63. 441 [153]"LOAD (null)HEN YOU INPUT ATN, PEEK AND LEN, TRY "
  64. 442 [153]" TO HAVE THEM ROUGHLY IN THE SAME        BALL PARK.
  65. 444 PRINT" [201]N OTHER WORDS, DON'T USE VALUES
  66. 446 [153]" LIKE 1, 1, 200. "
  67. 448 [153]" (null)HIS WILL NOT BE PLOTTED BY THE         COMPUTER."
  68. 495 [141]820:[142]
  69. 500 [143] <YES> SOUND
  70. 505 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  71. 510 [151]54296,15:[151]54277,42:[151]54278,250
  72. 515 [151]54276,23:[151]54273,23:[151]54191,191
  73. 520 [129]TM[178]1[164]150:[151]54276,32:[129]TM[178]1[164]300:[130]
  74. 525 [151]54296,0:[142]
  75. 530 [143] <NO> SOUND
  76. 535 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  77. 540 [151]54296,15:[151]54277,18:[151]54278,242
  78. 545 [151]54276,33:[151]54273,34[151]54191,48
  79. 550 [129]TM[178]1[164]300:[151]54276,32:[129]TM[178]1[164]400:[130]
  80. 555 [151]54296,0:[142]
  81. 560 [143] <BLIP> SOUND
  82. 565 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  83. 570 [151]54296,7:[151]54277,42:[151]54278,250
  84. 575 [151]54276,23:[151]54273,23:[151]54191,191
  85. 580 [129]TM[178]1[164]30:[151]54276,32:[129]TM[178]1[164]50:[130]
  86. 585 [151]54296,0:[142]
  87. 590 [129]TM[178]1[164]500:[130]:[142]
  88. 591 [129]TM[178]1[164]1000:[130]:[142]
  89. 592 [129]TM[178]1[164]2000:[130]:[142]
  90. 595 [129]TM[178]1[164]5000:[130]:[142]
  91. 600 [143] ** PROGRAM MODIFICATION INST **
  92. 605 UG$[178]"PROGRAM MOD":UP[178]0:[141]850
  93. 610 [153]"    (null)HIS PROGRAM CAN BE MODIFIED TO"
  94. 612 [153]" PLOT TWO LINES AT A TIME.  (null)HIS IS"
  95. 614 [153]" VERY USEFUL FOR COMPARISON OF SLOPES."
  96. 616 [153]" ATNLSO IT CAN BE USED TO SOLVE TWO"
  97. 618 [153]" EQUATIONS (I.E. IF THE POINT OF"
  98. 620 [153]" INTERSECTION IS WITHIN LIMITS OF THE"
  99. 622 [153]" GRAPH).  (null)O MODIFY THE PROGRAM, FOLLOW"
  100. 623 [153]" THESE INSTRUCTIONS."
  101. 624 [141]835:[141]850
  102. 625 [153]" (null)YPE IN THESE LINES:"
  103. 626 [153][163]10)"1175 GOSUB 850:GOSUB 4200"
  104. 628 [153][163]10)"1516 GOTO 1520"
  105. 630 [153]" (null)OW THE COMPUTER WILL ASK FOR TWO"
  106. 632 [153]" EQUATIONS AND THEN PLOT THEM BOTH."
  107. 685 [141]835
  108. 690 [139]UZ[178]1[167][158]UP%:[137]155
  109. 695 [142]
  110. 700 [153]UC$"LOADBEFORE RUNNING THIS PROGRAM ON AN 8032
  111. 705 PRINT"      LOAD THE 'CBM 4032' PROGRAM":END
  112. 800 PRINT"[147]";:POKEUT,UU%:POKEUY,0:POKEUX,0:POKE646,3
  113. 801 PRINT"      A TPUG EDUCATIONAL PROGRAM":GOSUB590
  114. 802 PRINT"            FOR C 64 COMPUTERS":GOSUB590
  115. 803 PRINT"                                        [146]";
  116. 804 PRINT"                                        [146]";
  117. 805 PRINT"                GRAPHING                [146]";
  118. 806 PRINT"                                        [146]";
  119. 807 PRINT"                EQUATION                [146]";
  120. 808 PRINT"                                        [146]";
  121. 809 PRINT"                  X-Y                   [146]";
  122. 810 PRINT"                                        [146]":GOSUB591:GOSUB560
  123. 811 PRINT"           INSTRUCTIONS?  Y/N
  124. 812 [161]R$:[139]R$[179][177]"Y"[175]R$[179][177]"N"[167]812
  125. 813 [139]R$[178]"Y"[167][141]400
  126. 814 [153]"LOAD AND AWAY WE GO .......":[141]591:[141]500:[141]590
  127. 815 [137]1000
  128. 820 [141]591:[141]560
  129. 822 [151]UN,0:[153][200](UD$,24);"CONT (null)RESS (null)(null)ATNLENVAL PEEKATN(null) TO CONTINUE WAIT"
  130. 824 [161]R$:[139]R$[179][177][199](32)[167]824
  131. 826 [142]
  132. 830 [141]591:[141]560
  133. 835 [151]UN,0:[153][200](UD$,24);"CONT (null)RESS (null)(null)ATNLENVAL PEEKATN(null) TO CONTINUE WAITLIST"
  134. 840 [161]R$:[139]R$[179][177][199](32)[167]840
  135. 845 [142]
  136. 850 UP[178]UP[170]1:[153]"LOAD"[200](UT$[170]UP$,21);[201](UP$[170]UG$[170][196](UP),18)
  137. 855 [153]" --------------------------------------"
  138. 860 [139]UH[178]0[167][153][200](UD$,24);[200](UP$,7);"HELP - PRESS   H <RETURN>"
  139. 865 UH[178]0:[153]"":[142]
  140. 875 [153][200](UD$,24);"           ONE MOMENT PLEASE...     ":[142]
  141. 900 US[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UB[178]2048:UX[178]53280:UD[178]2064
  142. 902 UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2151:UN[178]198:UY[178]53281:UU[178]2199:UE[178]2087
  143. 904 UC$[178][199](155):UV[178]1214:UF[178]196:UV[178]2238
  144. 905 UD$[178]"":UP$[178]"                                      "
  145. 909 [142]
  146. 910 [141]900:[153]"LOAD "
  147. 920 [137]800
  148. 1000 [153]"LOAD"UC$;:[140]:[151]UY,0:[151]UX,0:[151]UT,UL%
  149. 1162 QQ[178]QQ[170]1:UP[178]QQ:UG$[178]"         PLOT#":UT$[178]" EQUATION X-Y":[143] GO[211]850
  150. 1164 [153]" CHR$ENERAL EQUATION FOR A LINE:"
  151. 1165 [153][163]17)"AX + BY = C"
  152. 1167 [153]" RIGHT$NPUT VALUE FOR A: ";
  153. 1168 UL[178]3:US$[178]"0123456789-":[141]35:A[178][197](UR$)
  154. 1169 [153]" RIGHT$NPUT VALUE FOR B: ";
  155. 1170 UL[178]3:US$[178]"0123456789-":[141]35:B[178][197](UR$)
  156. 1172 [153]" RIGHT$NPUT VALUE FOR C: ";
  157. 1173 UL[178]3:US$[178]"0123456789-":[141]35:K[178][197](UR$)
  158. 1174 [141]830
  159. 1180 [143]:THE FOLLOWING SECTION PUTS THE X-Y AXIS ON THE SCREEN
  160. 1190 [153]"LOAD":[158] UU,15
  161. 1200 T[178][171]100
  162. 1210 [129] L[178]2 [164] 25
  163. 1220 P[178]93
  164. 1230 T[178](L[171]2)[173]5
  165. 1240 T1[178][181]((L[171]2)[173]5)
  166. 1250 [139] T[178]T1 [167] P[178]91
  167. 1260 [151] US[170](L[171]1)[172]40[170](19[171]1),P
  168. 1270 [130] L
  169. 1280 [129] C[178]1 [164] 40
  170. 1290 PP[178]64
  171. 1300 TT[178](C[170]1)[173]5:T2[178][181]((C[170]1)[173]5)
  172. 1310 [139] TT[178]T2 [167] PP[178]113
  173. 1320 [139] C[178]19 [167]PP[178]91
  174. 1330 [151] US[170](12[171]1)[172]40[170](C[171]1),PP
  175. 1340 [130] C
  176. 1350 [153]"-1-1-551X-AXIS"
  177. 1360 [153]"500"
  178. 1370 [153]"":[153][163]22)"Y-AXIS"
  179. 1380 [153]"10CMD5
  180. 1385 PRINT"-5[157][157]-10"
  181. 1390 PRINT""
  182. 1440 FOR I=-18 TO 20
  183. 1450 X=I
  184. 1455 IF B=0THEN GOTO 4000
  185. 1460 Y=INT((K-A*X)/B+.5)
  186. 1470 IF Y=T GOTO 1510
  187. 1480 T=Y
  188. 1490 P=42
  189. 1500 GOSUB 1640
  190. 1510 NEXT I
  191. 1517 GOTO 1630
  192. 1520 T=-100
  193. 1530 FOR I=-18 TO 20
  194. 1540 P=43
  195. 1550 X=I
  196. 1555 IF E=0THEN GOTO 4000
  197. 1560 Y=INT((F-D*X)/E+.5)
  198. 1570 IF Y=T GOTO 1600
  199. 1580 T=Y
  200. 1590 GOSUB 1640
  201. 1600 NEXT I
  202. 1610 PRINT"  "D"X+"D"Y="F":GO[211]595
  203. 1630 [141] 830:[153]"LOAD STR$O YOU WANT TO TRY ANOTHER ONE? ";
  204. 1631 UL[178]1:US$[178]"YN":[141]35:AN$[178]UR$:[139]AN$[179][177]"Y" [167] QQ[178]0:[137] 2000
  205. 1632 [141]500:[141]591:[140]:[137]1162
  206. 1640 [143]:THIS SUBROUTINE PLOTS THE X-Y COORDINATES
  207. 1650 C[178]X[170]19
  208. 1660 L1[178]12[171]Y
  209. 1670 [139] C[177]40 [137] 1720
  210. 1680 [139] C[179]1 [137] 1720
  211. 1690 [139] L1[177]24 [137] 1720
  212. 1700 [139] L1[179]1 [137] 1720
  213. 1709 PQ[178]US[170](L1[171]1)[172]40[170](C[171]1)
  214. 1710 [151] US[170](L1[171]1)[172]40[170](C[171]1),P
  215. 1711 [139] CC[178]0[175]A[179][177]0[167]1720
  216. 1712 [139] E[179][177]0[167] 1720
  217. 1715 [129]HH[178]PQ[164]PQ[170]39:[151]HH,P:[130]HH
  218. 1720 [142]
  219. 2000 [143]
  220. 2010 [153]"LOAD  (null)ETURNING TO THE DISK MENU."
  221. 2020 [147]"MENU",8
  222. 2030 [138]
  223. 2040 [128]
  224. 4000 X[178]32826[170]K
  225. 4010 [129]V[178]X[164]X[170]920 [169]40
  226. 4020 [151]V,42
  227. 4030 [130] V
  228. 4040 [137] 1515
  229. 4200 [153]" CHR$ENERAL EQUATION FOR A LINE:"
  230. 4210 [153][163]17)"AX + BY = C"
  231. 4220 [153]" RIGHT$NPUT VALUE FOR A: ";
  232. 4230 UL[178]3:US$[178]"0123456789-H":[141]35:D[178][197](UR$)
  233. 4240 [153]" RIGHT$NPUT VALUE FOR B: ";
  234. 4250 UL[178]3:US$[178]"0123456789-H":[141]35:E[178][197](UR$)
  235. 4260 [153]" RIGHT$NPUT VALUE FOR C: ";
  236. 4270 UL[178]3:US$[178]"0123456789-H":[141]35:F[178][197](UR$)
  237. 4280 [141]830
  238. 4300 [142]
  239. 4500 [143] WHC 90:12:06
  240.